﻿Public Class F_TKHangHoa

    Private Sub btntkban_Click(sender As Object, e As EventArgs) Handles btntkban.Click

        Dim sql As String = String.Format("select * from HOADON where NgayXuat between '{0}' and '{1}' and TINHTRANG = 1", txtstart.Text, txtEnd.Text)

        gcHoadon.DataSource = DataProvider.LoadTable(sql)
    End Sub

    Private Sub F_TKHangHoa_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        txtstart.Text = DateAdd(DateInterval.Day, -60, Now.Date)
        txtEnd.Text = DateTime.Now
    End Sub

    Private Sub btnBaoCao_Click(sender As Object, e As EventArgs) Handles btnBaoCao.Click
        gcHoadon.ShowPrintPreview()
    End Sub
End Class